Loadstar 21/021.d81/pgm starter

Commodore BASIC | 1986-01-01 | 1.3 KB | 51 lines

1 if a=0 then a=1:load "pgm",8,1
2 poke 55,255:poke 56,131:clr
3 ba=33792:rem base address
4 dp=ba+3:rem de-activate pgm
5 sa=ba+6:rem set address
6 bs=ba+9:rem bsave
7 bl=ba+12:rem bload
8 ds=ba+15:rem dos commands
9 fm=ba+18:rem fill memory
10 xf=ba+21:rem xfer memory
11 ho=ba+24:rem hires on
12 hf=ba+27:rem hires off
13 mo=ba+30:rem multicolor on
14 mf=ba+33:rem multicolor off
15 ce=ba+36:rem 80 column char driver
16 cd=ba+39:rem char driver
17 dc=ba+42:rem data compress
18 uc=ba+45:rem uncompress data
19 cw=ba+48:rem copy window
20 rw=ba+51:rem restore window
21 pl=ba+54:rem plot a point
22 up=ba+57:rem unplot a point
23 dr=ba+60:rem draw a line
24 ud=ba+63:rem undraw a line
25 bf=ba+66:rem bitmap fill
26 sb=ba+69:rem split border
27 br=ba+72:rem 3d bar
28 se=ba+75:rem eight sprite mode
29 fs=ba+78:rem fourteen sprite mode
30 so=ba+81:rem sprite on
31 sd=ba+84:rem sprite define
32 sp=ba+87:rem sprite plot
33 sr=ba+90:rem sprite reflect
34 rs=ba+93:rem sprite reverse
35 sx=ba+96:rem sprite xfer
36 an=ba+99:rem animate sprite
37 ca=ba+102:rem cease animate
38 jo=ba+105:rem joystick on
39 jf=ba+108:rem joystick off
40 wc=ba+111:rem color window
41 rw=ba+114:rem reverse window
42 fw=ba+117:rem fill window
43 rd=ba+120:rem dir reader
44 sys sa,57344,52224:rem set address
45 sys ba:rem activate pgm
46 sys ho:rem hires on
47 rem
48 rem
49 rem program begins here
1000 sys hf:sys dp:rem hires+pgm off